home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 68 (Alt) / PCG CD Gamer 68 1999-04.iso / Shware / 3DFrogM / fmdemo.exe / _SETUP.1 / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-01  |  9.1 KB  |  229 lines
  1. Form1
  2. Form1
  3. xxxxw
  4. xxxxx
  5. ]]]]]P
  6. xxxxxp
  7. xxxxp
  8. Form11
  9. Command1
  10. DClick here to visit our Website at http://www.romt.com for more info
  11. MS Sans Serif
  12. Command2
  13. Print
  14. Timer1
  15. Image1
  16.     Form_LoadC
  17. GetModuleUsage
  18. hModule
  19. Form_Click
  20. renamev
  21. image1+
  22. Picture
  23. image1_click
  24. Widtha
  25. form1
  26. height
  27. Timer1_Timer+
  28. enanbled
  29. Enabledx
  30. image_click
  31. Path>
  32. appPath 
  33. iamge1P
  34. timer1|
  35. Visiblen
  36. screen
  37. CenterForm+
  38. frmIN
  39. iTopG
  40. iLeft
  41. WindowState
  42.     keepontopj
  43. wFlags
  44. SWP_NOMOVE
  45. SWP_NOSIZE
  46. SetWindowPos%
  47. hWnd1
  48. HWND_TOPMOST
  49. hWndInsertAfter/
  50. HWND_NOTOPMOSTP
  51.     WF_CPU286]
  52.     WF_CPU386
  53.     WF_CPU486`
  54. WF_80x87
  55. WF_STANDARD
  56. WF_ENHANCED
  57. WF_WINNT
  58. loadpict>
  59. fexit
  60. endit
  61. Command1_Click
  62. startdoc
  63. VersionNum
  64. docnameH
  65. workingdir9
  66. ShellExecute'
  67. command1
  68. ATTR_NORMAL
  69. Normal
  70. ATTR_READONLY
  71. only!
  72. ATTR_HIDDEN
  73. Hiddenk
  74. ATTR_SYSTEMV
  75. ATTR_ARCHIVE
  76. changed
  77. since
  78. settattr
  79. stardoc
  80. Form_Unload
  81. Cancel
  82. piccnt
  83. picnt'
  84. openfile
  85. dostop
  86. fileexistss
  87. debuT
  88.     loadpict2
  89. timerval
  90. oldtime
  91.     timervale%
  92. cnt_to
  93. timerok8
  94. countok
  95. cntok
  96. shellapp
  97. runit
  98. dotrailersj
  99.     doscreens
  100. clickok
  101. click
  102. boolean
  103. click_ok
  104. clickv
  105.     strclickv
  106. Form_KeyPressD
  107. keyascii
  108. Command2_Click
  109. printer
  110. Picture1_Click
  111. command2
  112. visibled
  113. ErrorHandler
  114. HelpFile
  115. sendkey
  116. copyfile
  117. File1
  118. FileName
  119. Destfile
  120. srcfile
  121. intFileNum4
  122. strPathName
  123. filenum
  124. fileexists2
  125. pause
  126. fomr1
  127. Kernel
  128. Dim cnt
  129. CenterForm
  130. Screen.Height = 
  131.  frmIN.Height = 
  132. Screen.Width = 
  133.  frmIN.Width = 
  134. Command1_Click
  135. title.txt
  136. MsgBox m$w
  137. If VersionNum < 3.95 Then
  138.    docname = appPath$ + "index.htm"
  139.   workingdir$ = appPath$
  140. http://www.romt.com/demo.asp?demo=
  141. End If
  142.  docname = "http://www.romt.com/index.htm"
  143. start http://
  144. Cannot connect to http://www.romt.com . Please connect to the Internet and try again.
  145. Command2_Click
  146.  Declare variable.
  147.  Set up error handler.
  148.  Print form.
  149. The form could not be printed.
  150.  Display message.n
  151. doscreens
  152. MsgBox "FX - " + openfile + " = " + Str$(fileexists2)l
  153. MsgBox "FX - " + openfile + " = " + Str$(fileexists2)l
  154. fileexists2 = IIf(Err, False, True)
  155.  MsgBox Str$(Err)
  156. MsgBox Time$
  157.   MsgBox "FX - " + openfile + " = " + Str$(fileexists2)
  158.   Open openfile For Input As #FreeFile
  159.  fx = fileexists(openfile)
  160.  MsgBox fx
  161. loadpict2d
  162. If Err =  1 Then dostop = 1s
  163. clickOK = True
  164. msgBox "piccnt=" & Str$(piccnt)
  165. MsgBox "i=" + Str$(i) + " piccnt=" & Str$(piccnt)
  166. MsgBox i
  167.  command2.Visible = True
  168. Form_KeyPress
  169. Form_Load
  170. Name "c:\temp\foo.txt" As "c:\temp\foo ooo.txt"
  171. m = Shell("ren.exe C:\temp\foo.txt C:\temp\fooo foof fofo.txt", 1)
  172. copyfile
  173. FileCopy srcFile, DestFile  ' Copy file to destination.
  174. Galaxy.url
  175. C:\windows\desktop\Galaxy.url
  176. Destfile = "C:\windows\desktop\Galaxy.url"
  177.  Copy file to destination.
  178. demo.hlp
  179. loadpict "res1.dll"
  180. clickok = False
  181. res1.dll
  182. MsgBox "program done!"
  183. demo.hlp
  184. winhelp.exe 
  185. demo.hlp
  186. image1_click
  187. MsgBox clickok
  188. End If
  189. keepontop
  190. * Procedure Name: CheckUnique
  191. * Created: 4/18/94   By: KeepOnTop
  192. * Modified:
  193. *Keep form on top. Note that this is switched off if  *
  194. *form is minimised, so place in resize event as well. *
  195. Keep form on top. Note that this is switched off if form ise
  196. minimised, so place in resize event as well.
  197. Window will stay on topo
  198. To undo call again with HWND_NOTOPMOST
  199. loadpict
  200. loadpict2
  201. MsgBox Str$(clickv)
  202. form1.Width = image1.Width
  203. form1.Height = image1.Height
  204. CenterForm form1
  205. keepontop Me
  206. pause timerval
  207. pause
  208. Picture1_Click
  209. shellapp
  210. Normal file
  211.   Read-only file
  212. Hidden file 
  213. System file 
  214.   File has changed since last back-up
  215. wcsup.dll
  216.    MsgBox "Word Connect Demo Version.", 64
  217. wcsup.dll
  218. wcdemo.exe
  219. wcdemo.exe
  220.  Modify path as needed.d
  221.  Has Shelled program finished?
  222.  If not, yield to Windows.
  223. wcdemo.exe
  224. wcsup.dll
  225. Timer1_Timer
  226. Debug.Print cnt
  227. image1_click
  228. timer1.Enabled = False
  229.